Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/lookhere/lookhere.frm

Text File | 1995-05-08 | 6KB | 248 lines

VERSION 2.00
Begin Form LookHere
   Caption         =   "Lookie Here! Fonts!"
   ClientHeight    =   4020
   ClientLeft      =   1215
   ClientTop       =   2025
   ClientWidth     =   7830
   Height          =   4710
   Icon            =   LOOKHERE.FRX:0000
   Left            =   1155
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   4020
   ScaleWidth      =   7830
   Top             =   1395
   Width           =   7950
   Begin OptionButton Option2
      Caption         =   "Partial Character Sets (Caps Only)"
      Height          =   255
      Left            =   360
      TabIndex        =   9
      Top             =   3360
      Width           =   3255
   End
   Begin CommandButton Command2
      Caption         =   "Exit"
      Height          =   495
      Left            =   5880
      TabIndex        =   5
      Top             =   3120
      Width           =   1215
   End
   Begin CommandButton Command1
      Caption         =   "Print"
      Height          =   495
      Left            =   4320
      TabIndex        =   4
      Top             =   3120
      Width           =   1215
   End
   Begin OptionButton Option1
      Caption         =   "Font List (with samples)"
      Height          =   255
      Left            =   360
      TabIndex        =   6
      Top             =   3120
      Value           =   -1  'True
      Width           =   2295
   End
   Begin TextBox Text3
      Height          =   1455
      Left            =   4080
      TabIndex        =   8
      Text            =   "Text3"
      Top             =   1320
      Width           =   3495
   End
   Begin TextBox Text2
      Height          =   1455
      Left            =   240
      TabIndex        =   7
      Text            =   "Text2"
      Top             =   1320
      Width           =   3495
   End
   Begin ComboBox Combo4
      Height          =   300
      Left            =   6480
      TabIndex        =   3
      Text            =   "Combo4"
      Top             =   720
      Width           =   1095
   End
   Begin ComboBox Combo3
      Height          =   300
      Left            =   4080
      Sorted          =   -1  'True
      TabIndex        =   2
      Text            =   "Combo3"
      Top             =   720
      Width           =   2175
   End
   Begin ComboBox Combo2
      Height          =   300
      Left            =   2640
      TabIndex        =   1
      Text            =   "Combo2"
      Top             =   720
      Width           =   1095
   End
   Begin ComboBox Combo1
      Height          =   300
      Left            =   240
      Sorted          =   -1  'True
      TabIndex        =   0
      Text            =   "Combo1"
      Top             =   720
      Width           =   2175
   End
   Begin TextBox Text1
      Height          =   285
      Left            =   2040
      TabIndex        =   10
      Text            =   "Text1"
      Top             =   240
      Width           =   3735
   End
   Begin Menu File
      Caption         =   "&File"
      Begin Menu PrntCtl
         Caption         =   "&Print"
      End
      Begin Menu ExitCtl
         Caption         =   "E&xit"
      End
   End
   Begin Menu HelpCtl
      Caption         =   "&Help"
      Begin Menu Reg
         Caption         =   "&Registration Info"
      End
      Begin Menu AboutLook
         Caption         =   "&About"
      End
   End
End
Sub AboutLook_Click ()
       About.Show MODAL
End Sub

Sub Combo1_Click ()
    Jacob$ = Combo1.Text
    Text2.FontName = Jacob$
End Sub

Sub Combo2_Change ()
    Jacob$ = Combo2.Text
    Text2.FontSize = Val(Jacob$)
End Sub

Sub Combo2_Click ()
    Jacob$ = Combo2.Text
    Text2.FontSize = Val(Jacob$)
End Sub

Sub Combo3_Click ()
    Jacob$ = Combo3.Text
    Text3.FontName = Jacob$
End Sub

Sub Combo4_Change ()
    Jacob$ = Combo4.Text
    Text3.FontSize = Val(Jacob$)
End Sub

Sub Combo4_Click ()
    Jacob$ = Combo4.Text
    Text3.FontSize = Val(Jacob$)
End Sub

Sub Command1_Click ()
    If Option1.Value Then
    For I% = 0 To Printer.FontCount - 1
        Printer.FontName = "Arial"
        Printer.FontSize = 12
        Printer.Print Combo1.List(I%); Tab(40);
        Printer.FontName = Combo1.List(I%) ' Print name of font.
        Printer.Print "AaBbCcXxYyZz 12345?!&*,."
    Next I%
    Printer.EndDoc
    ElseIf Option2.Value Then
    For I% = 0 To Printer.FontCount - 1
        Printer.FontName = "Arial"
        Printer.FontSize = 12
        Printer.Print Combo1.List(I%) ' Set font.
        Printer.FontName = Combo1.List(I%) ' Print name of font.
        For J = 65 To 90
        Printer.Print Chr$(J);
        Next J
        Printer.Print
        Printer.Print
    Next I%
    Printer.EndDoc
    End If
End Sub

Sub Command2_Click ()
    End
End Sub

Sub ExitCtl_Click ()
    End
End Sub

Sub Form_Load ()
    Combo1.Text = ""
    Combo2.Text = "10"
    Combo3.Text = ""
    Combo4.Text = "10"
    Text2.Text = "AaBbCcXxYyZz123!?&"
    Text3.Text = "AaBbCcXxYyZz123!?&"
    For I% = 0 To Printer.FontCount - 1
    Combo1.AddItem Printer.Fonts(I%)  ' Print name of font.
    Next I%
    For I% = 6 To 36
    Combo2.AddItem Str$(I%)
    Next I%
    For I% = 0 To Printer.FontCount - 1
    Combo3.AddItem Printer.Fonts(I%)  ' Print name of font.
    Next I%
    Text1.Text = Str$(I%) + " fonts available to choose from."
    For I% = 6 To 36
    Combo4.AddItem Str$(I%)
    Next I%
End Sub

Sub PrntCtl_Click ()
    If Option1.Value Then
    For I% = 0 To Printer.FontCount - 1
        Printer.FontName = "Arial"
        Printer.FontSize = 12
        Printer.Print Combo1.List(I%); Tab(40);
        Printer.FontName = Combo1.List(I%) ' Print name of font.
        Printer.Print "AaBbCcXxYyZz 12345?!&*,."
    Next I%
    Printer.EndDoc
    ElseIf Option2.Value Then
    For I% = 0 To Printer.FontCount - 1
        Printer.FontName = "Arial"
        Printer.FontSize = 12
        Printer.Print Combo1.List(I%) ' Set font.
        Printer.FontName = Combo1.List(I%) ' Print name of font.
        For J = 65 To 90
        Printer.Print Chr$(J);
        Next J
        Printer.Print
        Printer.Print
    Next I%
    Printer.EndDoc
    End If
End Sub

Sub Reg_Click ()
   Money.Show MODAL
End Sub